home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
YES.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1988-07-14
|
319b
|
15 lines
{<<<< Yes >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann }
{ Scott, Foresman & Co. 1988 ISBN 0-673-38355-5 }
{ Described in section 18.3 -- Last mod 7/5/88 }
FUNCTION Yes : Boolean;
VAR
Ch : Char;
BEGIN
Read(Ch);
IF Ch IN ['Y','y'] THEN Yes := True ELSE Yes := False
END;